DATA OUTPUT 9 

Program J3-12.8 

(S^ GENERAL PRECISION, INC. / COMMERCIAL COMPUTER DIVISION 



REVISION NOTICE 

This publication replaces previous descriptions of "Data Output 9," 
program J3-12.8. The program designation has been changed to the 
present reference. 



FUNCTION 



"Data Output 9" enables the user to print or punch the contents of 
groups of consecutive memory locations in decimal form, assuming all 
numbers to be integers. The number of digits to be printed, and the 
number of decimal places, may be specified for each number. All num- 
bers are printed on a single line and may be separated by spaces. 



INPUT 

The numbers to be printed are stored in memory at q = 30. 

CALLING SEQUENCE 

Location Instruction Address 

XXXX R L„ + 30 

XXXX +1 U L 

^o 

XXXX + 2 80X Nti L (1st. number) 



XXXX + 3 
XXXX + 4 



Pi Dl 
P2 D2 



XXXX + 2 + i X N^ p. Dj 

Next BOX Nt2 or exit 
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CALLING SEQUENCE (Cont.) 

The calling sequence may be classified into groups of the following types 
of words 

A. (Contained in XXXX + 2 above.) This word must be negative, and 
contains the total number of consecutive numbers to be printed, 
N^ (in the order portion), and the location of the first number 
(in the address portion). 

B. (Contained in XXXX + 3 through XXXX + 2 + i above.) These words 
contain the following 

1. (Nj^). The number of consecutive numbers requiring the same 

number of decimal places and same total number of 
digits. Ni is contained in the order portion. 

2. (Pj^). The number of decimal places in each number of this 

group. Pi is contained in the track portion. 

3. (D^). The total number of digits in the field. This in- 

cludes leading spaces, integral digits, a possible 
decimal point, fractional digits, and the sign of 
number. D^ is contained in the sector portion. 

Exit to the first "positive" type A calling sequence word as defined 
under "CALLING SEQUENCE." 



OUTPUT 

The decimal equivalent of each number specified is printed. For each 
number, leading integral zeros are spaced and the sign (space or minus) 
follows the number. BREAK POINT 32 button must be down for use on the 
high speed punch. When Pj^ = 0, no decimal point is printed. At least 
1 leading space must be included in each D^. 
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LIMITS 

Numbers to be printed must be within the range ± 1 x 10^ 

8 > Pi > 

63 > Di > 3 when P^ = or 

63 > Di ^ 4 when Pi > 

15 ^ Ni and Nt > 1 (% of 10 through 15 may 

be specified by F through W) 

Normally Di > Pi +3 (or 2) since Di includes sign, (a possible decimal 
point, and at least 1 leading space. 

The total of Ni's must equal N^ for each group. 

EXAMPLE 

Assume 10 numbers in memory stored from 3600 through 3605 and 3630 
through 3633. We want to print the first number with 3 decimal places 
and allow for 2 integral digits. The next 3 numbers are at 3 decimal 
places, may have 2 integral digits, and 2 leading spaces each for 
column separation. 

The next 2 numbers are to have 2 decimal places, 4 integral digits, and 
2 spaces for column separation. We will skip location 3606 through 
3629. The last 4 numbers will be printed with no decimal places (or 
decimal point) and can get as high as 5 digits. We will allow 3 spaces 
between columns. The calling sequence is 



Location 


Instruction 


XXXX 




R Lq + 30 


XXXX + 


1 


U Lo 


XXXX + 


2 


80X63600 


XXXX + 


3 


X10308 


XXXX + 


4 


X30309 


XXXX + 


5 


X20210 


XXXX + 


6 


80X43630 


XXXX + 


7 


X40009 


XXXX + 


8 


etc. 



Notes 



Nt 


= 


6 


; i 


(A 


1 


+ 


I: 


(A 


2 


+ 


I: 


(A 


2 


+ 


I : 


Nt 


= 


4 


; i 


(A: 


3 


+ 


I: 


XXXX 


+ 


8 


Sti 


uction 



initial location = 3600 
2 + D: 1 + P: 3 + S:l) 
2 + D: 1 + P: 3 + S:l) 

4 + D: 1 + P: 2 + S:l) 
initial location = 3630 

5 +D: + P: + S:l) 
contains a "positive" in- 
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EXAMPLE (Cont.) 
Note 

A = number of leading spaces (must be at least 1). 

I = number of integral digits. 

D = number of digits for decimal point. 

P - number of decimal places. 

S = sign position. Always 1 digit. 

Example time 

100 words with D^ = 9 (including exiting, carriage return, and mod- 
ifying addresses after each 10 words) required 125 seconds on the 
Flexowriter, and 79 seconds on the high speed punch. 



ACCURACY 



Output is exact. 



STORAGE 

192 locations (3 tracks) of instructions and constants plus track 63, 
sectors 00, 01, 03, 04, 06, are required in memory. 



PROGRAM STOPS 

Lq + 0130 The number is too large to be printed in this D^. 
Lq + 0036 Either INj^ < N^. or D^ < 3. 
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( START ^ 



MODIFY ADDRESS 

OF WORD A TO OBTAIN 

L (WORD B) 



yes 



IS WORD A<0? 



no 



EXIT TO WORD A 



STORE ADDRESS AS 
LOC. OF FIRST NO. TO 
PRINT. PRESET N^ 



PICK UP WORD B. 
STORE N, , TRIM AND 
STORE D|-3 = Dc 



no 


IS Dc NEGATIVE ? 




.<- ^" i 




ERROR HALT (0036) 




LfT ■- "■ 


^ 


IS Pi = 0? I 



- yes 



SHIFT P, TO 
q = 29 



STORE AS 2nd PS.C. 



PRINT DEC. POINT AND 
ELIMINATE LEADING 
ZERO "spacing" 



SET PRINT EXIT "2 



LOOP TO PRINT ALL 
FRACTIONAL DIGITS 



EXIT «2 



PRINT THE SIGN 
OF THE NUMBER 



MODIFY ADDRESS OF 
NUMBER TO PRINT 



DECREASE N| BY 
ONE. IS IT= O? 



no 



yes 



MODIFY ADDRESS OF 
WORD B (AND A) 



yes 



no 



DECREASE Nt BY Nl 
IS IT NEGATIVE? 



SET PRINT EXIT 'I 
SET LOOP FOR 
LEADING ZERO "SR"s 



yes 



2n<JRSC.-| — ►Ist PS.C. 

Ezzz: 



no 



EXIT 



LOCATE AND STORE 



ADDRESS OF 10 



Dc 



IS 2nd R S.C. = ? 



LOOP TO PRINT ALL 
INTEGRAL DIGITS 
(PRINT LEADING O's 
AS SR ) 



ADD I AT 30 AND 



PRINT LEADING "SR" 



SCALE |N0.| BY 
DIVIDING BY 10*^ 



DC -2nd RS.C. -I 
Ist PS.C. 



SET ADDRESS OF 
10°*^ TO LOG®). Dc = 8 



LOOP TO PRINT 
(Dc-8) SPACES 



yes 



I 



IS De > 9? 



PICK UP NO. TO 
PRINT, HOLD FOR 
SIGN, AND FIND |N0.{ 
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